home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Arcade• / RoboWar •••• / Robots Folder / TimBot II / TimBot II next >
Text File  |  1990-04-04  |  1KB  |  83 lines
  1. # By Tim Seufert
  2. # 1/3/90
  3. # (Still too many Electric Monks and a general
  4. # feeling of banananess.)
  5.  
  6. 3 speedx' store
  7. -3 speedy' store
  8. 1 a' store
  9. 1 b' store
  10.  
  11. begin:
  12.     energy shield' store
  13.     x 270 > stopx if
  14.     y 30 < stopy if
  15.     a b or not blah if
  16.     collision seekdestroy if
  17.     begin jump
  18.  
  19. stopx:
  20.     0 a' store
  21.     0 speedx' store
  22.     return
  23.  
  24. stopy:
  25.     0 b' store
  26.     0 speedy' store
  27.     return
  28.  
  29. seekdestroy:
  30.     315 aim' store
  31. loop:
  32.     energy shield' store
  33.     range 0 > blastit rotate ife
  34.     collision not goback if
  35.     aim 135 = reset if
  36.     loop jump
  37.  
  38. blastit:
  39.     energy 2 / missile' store
  40.     return
  41.  
  42. rotate:
  43.     30 aim + aim' store
  44.     return
  45.  
  46. goback:
  47.     drop
  48.     3 speedx' store
  49.     -3 speedy' store
  50.     energy shield' store
  51.     return
  52.  
  53. reset:
  54.     0 aim' store
  55.     return
  56.  
  57. blah:
  58.     drop
  59. main:
  60.     270 aim' store
  61. loop2:
  62.     range 0 > blastit2 rotate2 ife
  63.     energy shield' store
  64.     loop2 jump
  65.  
  66. reset2:
  67.     drop
  68.     drop
  69.     main jump
  70.  
  71. rotate2:
  72.     aim 5 - aim' store
  73.     aim 170 = reset2 if
  74.     return
  75.  
  76. blastit2:
  77.     energy 10 > realblastit if
  78.     return
  79.  
  80. realblastit:
  81.     energy 2 / missile' store
  82.     return
  83.